home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_gen / t4diblib.zip / VIEWLIB2.F3_ / VIEWLIB2.F3
Text File  |  1995-11-14  |  2KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form Form1
  3.    Caption         =   "VIEWLIB2"
  4.    ClientHeight    =   1956
  5.    ClientLeft      =   876
  6.    ClientTop       =   1524
  7.    ClientWidth     =   4212
  8.    Height          =   2376
  9.    Left            =   828
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1956
  12.    ScaleWidth      =   4212
  13.    Top             =   1152
  14.    Width           =   4308
  15.    Begin CommandButton Command1
  16.       Caption         =   "Quit"
  17.       Height          =   372
  18.       Left            =   2280
  19.       TabIndex        =   1
  20.       Top             =   1440
  21.       Width           =   972
  22.    End
  23.    Begin T4DILIB dilib1
  24.       Caption         =   "dilib1"
  25.       ControlMode     =   0  'Lib -> PIC
  26.       Height          =   372
  27.       Left            =   3360
  28.       Top             =   1440
  29.       Visible         =   0   'False
  30.       Width           =   732
  31.    End
  32.    Begin ListBox List1
  33.       Height          =   1176
  34.       Left            =   2280
  35.       TabIndex        =   0
  36.       Top             =   120
  37.       Width           =   1812
  38.    End
  39. End
  40. Option Explicit
  41.  
  42. Sub Command1_Click ()
  43.  End
  44. End Sub
  45.  
  46. Sub Form_Load ()
  47. Dim myctr%
  48.  Top = (screen.Height - Height) / 2!
  49.  Left = (screen.Width - Width) / 2!
  50.  dilib1.LibraryName = "bluespin.ilb"
  51.  dilib1.Action = IM_ACTION_OPENLIBRARY
  52.  For myctr = 1 To dilib1.MemberCount
  53. 'Set MemberNumber to update MemberName
  54.   dilib1.MemberNumber = myctr
  55. 'This time, add the member name.
  56.   list1.AddItem dilib1.MemberName
  57.  Next myctr
  58. End Sub
  59.  
  60. Sub List1_Click ()
  61. 'Set the member name from the list-box.
  62.  dilib1.MemberName = list1.List(list1.ListIndex)
  63. 'Fetch and display.
  64.  dilib1.Action = IM_ACTION_GETMEMBER
  65.  Picture = dilib1.Picture
  66. End Sub
  67.  
  68.